home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 20 / AMIGAplus Sonderheft 20 (1999)(ICP)(DE)[!].iso / scripts / view.sel < prev   
Text File  |  1999-07-05  |  1KB  |  47 lines

  1. flow right
  2. defenv AFutureViewer C:FastView
  3. screen Workbench
  4. ;OnChange AFuture TO 2 POPUP ;Wenn Play16 gestartet wird, muß env:AFuture auf 2 gesetzt werden ->POPUP
  5. ;OnChange AFuture TO 1 popupclose
  6. ;varchecktime 0.01
  7. defenv xvar "0 frommax"
  8. defenv yvar 13
  9. pattern 0 pattern2.iff 
  10. pattern 4 pattern.iff 
  11.     x [xvar]
  12.     y [yvar]
  13.     
  14.     onexit dumpx xvar dumpy yvar
  15. title "Amiga Future Player"
  16. close off
  17. gap 4
  18. ;rows 5
  19. columns 2
  20. ;startbox
  21. EXEC "Execute >nil: sub.sel >NIL:" ;@if exists `getenv AFutureViewer`*nlist $AFutureViewer Lformat=%N >env:AFuturePlayer*nelse*necho >ENV:AFuturePlayer "--"*nendif@
  22. font times 15 ordefault
  23. tempcol 3
  24. text "Momentaner Anzeiger: [AFuturePlayer]"
  25. space
  26. text "Bitte neuen viewer wählen:"
  27. space
  28. space
  29. space
  30. ;endbox
  31. startbox
  32. buttoncol 2 4
  33. button "Viewtek" RUN "Setenv AFutureViewer C:Viewtek" loadupdate
  34. button "CyberView" RUN "Setenv AFutureViewer C:Cyberview" loadupdate
  35. button "FastView" RUN "Setenv AFutureViewer C:Fastview" loadupdate
  36. button "Multiview" RUN "Setenv AFutureViewer sys:utilities/Multiview" loadupdate
  37. button "Visage" RUN "Setenv AFutureViewer C:Visage" loadupdate
  38. Button "Other" EXEC "C:Requestfile drawer=ram: >env:AFutureViewer" loadupdate
  39. endbox
  40. space
  41. space
  42. startbox
  43. button "Use" EXIT
  44. button "Save" EXEC "Copy env:AFutureViewer env:AFuturePlayer TO envarc: quiet" EXIT
  45. endbox
  46.  
  47. ;button "Stop Play16" RUN "Break `status com=play16`" ;EXIT "® by The Saint!" ;ClosePOPUP muß eigentlich nicht mehr sein